home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / E-G / Get⁄SetCreator 2.1.cpt / Get_SetCreator 2.1 / card_2839.txt < prev    next >
Text File  |  1991-09-01  |  3KB  |  87 lines
  1. -- card: 2839 from stack: in.1
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2788
  5. -- name: 
  6.  
  7.  
  8. -- part 9 (field)
  9. -- low flags: 01
  10. -- high flags: 0007
  11. -- rect: left=4 top=94 right=304 bottom=228
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 21
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20.  
  21.  
  22. -- part 10 (button)
  23. -- low flags: 00
  24. -- high flags: A002
  25. -- rect: left=4 top=65 right=87 bottom=104
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: GetCreator
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   put getpathname() into appname
  37.   if appname = "" then exit to hypercard
  38.   get getcreator(appname)
  39.   if the number of chars of it = 4 then
  40.     answer "The CREATOR of ‚Äú" & appname & "‚Äù is" && it & "."
  41.   else
  42.     answer it with "Sorry"
  43.   end if
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 11 (button)
  49. -- low flags: 00
  50. -- high flags: A002
  51. -- rect: left=128 top=65 right=87 bottom=228
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: SetCreator
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   put getpathname() into appname
  63.   if appname = "" then exit to hypercard
  64.   ask "Change Creator to what?" with getcreator(appname)
  65.   if it = "" then exit mouseup
  66.   setcreator appname,it
  67.   if the result ‚↠"" then answer the result with "Sorry"
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part contents for card part 9
  73. -- note: style data is present
  74. ----- text -----
  75. GetCreator takes one parameter, the pathname of the file you want to examine. SetCreator takes two parameters, the pathname of the file and the 4 letter Creator to use. Click on and/or examine the scripts of the buttons above to see how it works!
  76.  
  77. A small shareware fee of $5.00 is requested if you use these externals in any ‚Äúin house‚Äù, shareware or freeware products. The registration fee for development and prototyping of a future commercial product is $10.  The registration fee for unlimited commercial use in a SINGLE ‚Äúfor sale‚Äù product is $15.  The fee for unlimited commercial use with MULTIPLE products is $25.   These are life-time registrations.  You are entitled to all future shareware updates without further cost.
  78.  
  79. For additional information you can contact us in any of the following ways:
  80. America Online:  ProX Jeff
  81. GEnie:           APOSTASY
  82. Compuserve:      76675,1772
  83. AppleLink:       ALL.AMERICAN
  84. All-American Software Development Corp.
  85. P. O. Box 50635
  86. Minneapolis MN  55405-0635
  87.